home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
stos
/
stos_38
/
tracker
/
st_conv.bas
(
.txt
)
< prev
next >
Wrap
Atari STOS Basic
|
1987-04-21
|
11KB
|
244 lines
10 REM ******************************************
100 DIM
1000 VARNAME
10000 FOR
10005 VARNAME
10010 NEXT
10015 RETURN
1005 VARNAME
1010 FOR
10100 VARNAME
1015 VARNAME
1020 NEXT
1025 INC
1030 VARNAME
1035 VARNAME
1040 FOR
1045 IF
105 VARNAME
1050 NEXT
1055 ERASE
1060 VARNAME
1065 VARNAME
1070 VARNAME
1075 FOR
1076 IF
1077 VARNAME
1080 VARNAME
1085 VARNAME
1090 IF
1095 VARNAME
10999 REM ---> Poke ou non?
11 REM * Convertisseur SoundTracker-> STOS/AMOS *
110 VARNAME
1100 VARNAME
11000 IF
11005 RETURN
1105 VARNAME
11099 REM ---> Doke ou non?
1110 FOR
11100 IF
11105 RETURN
1115 VARNAME
11199 REM ---> Loke ou non?
1120 INC
11200 IF
11205 RETURN
1125 IF
11299 REM ---> SamCopy (Copie aussi pour adresses impaires)
1130 VARNAME
11300 IF
11305 IF
11310 PRINT
11315 VARNAME
11320 WHILE
11325 PRINT
11330 RETURN
1135 RETURN
115 VARNAME
1197 REM --------------------
1198 REM Conversion chanson
1199 REM --------------------
12 REM ******************************************
120 VARNAME
125 VARNAME
130 VARNAME
135 VARNAME
140 VARNAME
145 VARNAME
150 VARNAME
155 VARNAME
160 VARNAME
165 VARNAME
170 VARNAME
175 VARNAME
180 VARNAME
185 VARNAME
190 VARNAME
199 REM ---> Addresse des routines
200 VARNAME
2000 VARNAME
2005 IF
2010 VARNAME
2015 VARNAME
2020 VARNAME
2025 IF
2030 VARNAME
2035 VARNAME
2040 VARNAME
2045 FOR
205 VARNAME
2050 VARNAME
2055 FOR
2060 VARNAME
2065 FOR
2070 VARNAME
2075 FOR
2080 VARNAME
2085 NEXT
2090 NEXT
2095 FOR
210 EXTENSION (Index #3) (Token 0x9c)
2100 VARNAME
2105 NEXT
2110 IF
2115 VARNAME
2120 RETURN
2997 REM ---------------------
2998 REM Conversion patterns
2999 REM ---------------------
3000 ERASE
3005 VARNAME
3010 PRINT
3015 VARNAME
3020 DOKE
3025 FOR
3030 FOR
3035 VARNAME
3040 DOKE
3045 GOSUB
3050 NEXT
3055 IF
3060 NEXT
3065 VARNAME
3070 RETURN
3099 REM ---> Conversion d'une voix
3100 VARNAME
3105 INC
3110 VARNAME
3115 VARNAME
3120 IF
3125 VARNAME
3130 IF
3135 ON
3140 GOSUB
3145 VARNAME
3150 IF
3155 VARNAME
3160 GOTO
3199 REM > Fin d'un pattern
3200 GOSUB
3205 IF
3210 VARNAME
3299 REM > Doke la longueur de la note
3300 IF
3305 RETURN
3399 REM > Arret de l'effet precedent
3400 ON
3405 IF
3410 RETURN
3415 GOSUB
3499 REM > Arpeggio
3500 IF
3505 RETURN
3509 REM > Slide up
3510 GOSUB
3515 DOKE
3519 REM > Slide down
3520 GOSUB
3525 DOKE
3529 REM > Portamento
3530 GOSUB
3535 DOKE
3539 REM > Vibrato
3540 GOSUB
3545 DOKE
3549 REM > Labels non utilises
3550 RETURN
3560 RETURN
3570 RETURN
3580 RETURN
3590 RETURN
3599 REM > Volume slide
3600 GOSUB
3605 DOKE
3609 REM > Position jump
3610 GOSUB
3615 VARNAME
3619 REM > Set volume
3620 GOSUB
3625 RETURN
3629 REM > Pattern break
3630 GOSUB
3635 VARNAME
3639 REM > Led on/off
3640 RETURN
3649 REM > Set tempo
3650 GOSUB
3655 DOKE
498 REM
499 REM ---> Boucle du programme
500 VARNAME
505 IF
510 OPEN IN
515 ERASE
520 BLOAD
524 REM ---> Quelle version de Soundtracker?
550 VARNAME
555 VARNAME
560 IF
599 REM ---> Calcule les tailles instruments et musique
600 VARNAME
605 VARNAME
649 REM ---> Converti les patterns
650 VARNAME
655 VARNAME
660 REPEAT
665 IF
670 GOSUB
675 VARNAME
680 INC
685 UNTIL
699 REM ---> Chanson
700 PRINT
705 VARNAME
749 REM ---> Instruments
750 PRINT
755 VARNAME
799 REM ---> Fabrique la banque AMOS!
800 VARNAME
805 VARNAME
810 VARNAME
815 LOKE
820 VARNAME
825 COPY
830 LOKE
834 REM Copie chanson
835 COPY
839 REM Copie melodie (patterns)
840 COPY
849 REM ---> Sauve la banque
850 CLW
855 PRINT
860 BSAVE
899 REM ---> Fait le menage
900 FOR
905 ERASE
910 NEXT
915 GOTO
997 REM ------------------------
998 REM Conversion instruments
999 REM ------------------------
9998 REM
9999 REM ---> Routines